0 A$="MONEY."+CHR$(3)
2 OPEN A$ FOR APPEND AS #1:CLOSE #1
4 OPEN A$ FOR INPUT AS #1
6 IF EOF(1) THEN 10 ELSE CLOSE #1: GOTO 200
10 CLOSE #1:CLEAR:PRINT "ӭʹñ!½Խܱ,...";
20 INKEY$
25 CLS:PRINT "ʽΪNC_1020רóʽһŲ";
26 INKEY$:CLEAR
30 CLS:PRINT "ʽϷΪһ壬ںӳ︨ߣռǱȵȣ";
40 INKEY$
50 CLS:PRINT "ͬ,йܶҪʹǱ,ܲͬõǱҲͲͬ."
60 INKEY$:CLEAR
70 CLS:PRINT "ǱҵĳʼֵΪ1000Ԫ,ͨƱ׬ȡǱ.Ʊʮѡģʽ"
80 INKEY$:CLEAR:CLS
90 PRINT "ÿԴ0,1,2,3,4,5,6,7,8,9ѡ,ѺʵǱ,"
100 INKEY$:CLEAR:CLS
110 PRINT "ÿ4,8,12,16,20,24,28ſ,ȫʮ򱶵Ľ,ĸһٱ,ʮ"
130 INKEY$:CLEAR:CLS
140 PRINT "޽.!"
150 INKEY$:CLEAR:CLS
160 PRINT "йлࡰ*.";CHR$(3);" ļ,мǲɽ֮ɾ,";
165 PRINT "޷."
170 INKEY$:CLEAR:CLS
175 A$="MONEY."+CHR$(3)
180 OPEN A$ FOR APPEND AS #1
185 B=1000
190 WRITE #1,B
195 CLOSE #1
200 BEEP:CLS:PRINT "OK!ڿBOB";
210 INKEY$
220 END
